open(BUFF,"unc.edu_BRCA.AgilentG4502A_07_3.sdrf.txt") or die "no file found\n";
$line=<BUFF>;
while(<BUFF>)
{
	chomp($_);
	@array = split("\t",$_);
	$sample{$array[1]} = $array[0];
}
for($i=1;$i<9;$i++)
{
	#print "processing $i\n";
	$dir = "out_unc.edu_BRCA.AgilentG4502A_07_3.Level_2.$i.0.0";
	$ls = `ls ./$dir/`;
	print $ls;
}
